home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / MDFWD.DFM < prev    next >
Text File  |  1994-10-12  |  1KB  |  66 lines
  1. DEFINE FORM MDFwd ;
  2.    PROPERTY ;
  3.       HEIGHT   9,;
  4.       LEFT    12,;
  5.       TEXT   [Delante: búsqueda],;
  6.       TOP      5,;
  7.       WIDTH   44
  8.  
  9. MDFwd.Action = .F.
  10.  
  11.  
  12. DEFINE TEXT txName1 OF m->MDFwd;
  13.    PROPERTY ;
  14.       LEFT   1,;
  15.       TOP    1,;
  16.       WIDTH 26
  17.  
  18. MDFwd.txName1.Label    = .F.
  19. MDFwd.txName1.Text     = [Introduzca valor a buscar:]
  20.  
  21. DEFINE TEXT txName5 OF m->MDFwd;
  22.    PROPERTY ;
  23.       LEFT  1,;
  24.       TOP   2,;
  25.       WIDTH 23
  26.  
  27. MDFwd.txName5.Label    = .F.
  28. MDFwd.txName5.Text     = UPPER(ALLTRIM(LEFT(cStr, 40)))
  29.  
  30. DEFINE ENTRYFIELD etName4 OF m->MDFwd;
  31.    PROPERTY ;
  32.       LEFT 1,;
  33.       TOP  3,;
  34.       STATUSMESSAGE     "Serie a buscar. Puede usar los caracteres de sustitución * y ?."
  35.  
  36. DEFINE PUSHBUTTON bOK2 OF m->MDFwd;
  37.    PROPERTY ;
  38.       DEFAULT .T.,;
  39.       LEFT      8,;
  40.       ONCLICK  OKHand,;
  41.       TOP       5,;
  42.       WIDTH    11,;
  43.       STATUSMESSAGE   "Aceptar las configuraciones de este cuadro de diálogo"
  44.  
  45. MDFwd.bOK2.Procfile = "OKHAND.PRG," + HOME() + "FORMRUN.DBO"
  46. MDFwd.bOK2.Text     = "~A~ceptar"
  47.  
  48. DEFINE PUSHBUTTON bCan3 OF m->MDFwd;
  49.    PROPERTY ;
  50.       LEFT    22,;
  51.       ONCLICK CanHand,;
  52.       TOP      5,;
  53.       WIDTH   12,;
  54.       STATUSMESSAGE   "Cerrar el cuadro de diálogo sin realizar modificaciones"
  55.  
  56. MDFwd.bCan3.Procfile = "CANHAND.PRG," + HOME() + "FORMRUN.DBO"
  57. MDFwd.bCan3.Text     = "Cancelar"
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.